home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / Tele / C / Comet2.1.3.sit / 3270XCMD / TNConnect.c < prev    next >
MacBinary  |  1989-08-23  |  2.5 KB  |  [TEXT/MPS ]

open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert Compact Compressed (Unix) (archive/compact) ext Supported
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, Wed Aug 23 18:55:03 1989, modified Wed Aug 23 18:55:03 1989, creator 'MPS ', type ASCII, 1972 bytes "TNConnect.c" , at 0x834 382 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[MPS ]



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 54 4e 43 6f 6e 6e | 65 63 74 2e 63 00 00 00 |..TNConn|ect.c...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 07 b4 00 | 00 01 7e a1 18 db c7 a1 |........|..~.....|
|00000060| 18 db c7 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 c5 d7 00 00 |........|........|
|00000080| 2f 2a 20 54 4e 43 6f 6e | 6e 65 63 74 2e 63 20 2d |/* TNCon|nect.c -|
|00000090| 2d 20 58 43 4d 44 20 74 | 6f 20 6f 70 65 6e 20 74 |- XCMD t|o open t|
|000000a0| 68 65 20 54 4e 33 32 37 | 30 20 64 72 69 76 65 72 |he TN327|0 driver|
|000000b0| 20 0d 09 63 6f 70 79 72 | 69 67 68 74 20 31 39 38 | ..copyr|ight 198|
|000000c0| 39 20 43 6f 72 6e 65 6c | 6c 20 55 6e 69 76 65 72 |9 Cornel|l Univer|
|000000d0| 73 69 74 79 20 0d 09 0d | 09 54 4e 43 6f 6e 6e 65 |sity ...|.TNConne|
|000000e0| 63 74 20 68 6f 73 74 69 | 64 3a 20 20 43 6f 6e 6e |ct hosti|d: Conn|
|000000f0| 65 63 74 20 74 6f 20 61 | 20 68 6f 73 74 2e 0d 0d |ect to a| host...|
|00000100| 2a 2f 0d 0d 0d 23 69 6e | 63 6c 75 64 65 20 3c 54 |*/...#in|clude <T|
|00000110| 79 70 65 73 2e 68 3e 0d | 23 69 6e 63 6c 75 64 65 |ypes.h>.|#include|
|00000120| 20 3c 4d 65 6d 6f 72 79 | 2e 68 3e 0d 23 69 6e 63 | <Memory|.h>.#inc|
|00000130| 6c 75 64 65 20 3c 44 65 | 76 69 63 65 73 2e 68 3e |lude <De|vices.h>|
|00000140| 0d 23 69 6e 63 6c 75 64 | 65 20 3c 48 79 70 65 72 |.#includ|e <Hyper|
|00000150| 58 43 6d 64 2e 68 3e 0d | 23 69 6e 63 6c 75 64 65 |XCmd.h>.|#include|
|00000160| 20 3c 45 72 72 6f 72 73 | 2e 68 3e 0d 0d 23 69 6e | <Errors|.h>..#in|
|00000170| 63 6c 75 64 65 20 3c 53 | 74 72 69 6e 67 2e 68 3e |clude <S|tring.h>|
|00000180| 0d 0d 23 69 6e 63 6c 75 | 64 65 20 22 54 4e 64 72 |..#inclu|de "TNdr|
|00000190| 76 72 2e 68 22 0d 0d 0d | 70 61 73 63 61 6c 20 76 |vr.h"...|pascal v|
|000001a0| 6f 69 64 20 64 65 62 75 | 67 67 65 72 28 29 09 65 |oid debu|gger().e|
|000001b0| 78 74 65 72 6e 20 30 78 | 41 39 46 46 3b 20 20 20 |xtern 0x|A9FF; |
|000001c0| 0d 0d 0d 70 61 73 63 61 | 6c 20 76 6f 69 64 20 54 |...pasca|l void T|
|000001d0| 4e 43 6f 6e 6e 65 63 74 | 28 68 79 63 70 29 0d 58 |NConnect|(hycp).X|
|000001e0| 43 6d 64 50 74 72 20 68 | 79 63 70 3b 0d 7b 0d 09 |CmdPtr h|ycp;.{..|
|000001f0| 43 6e 74 72 6c 50 61 72 | 61 6d 20 64 72 76 70 62 |CntrlPar|am drvpb|
|00000200| 3b 0d 09 6c 6f 6e 67 20 | 2a 20 61 72 67 73 3b 0d |;..long |* args;.|
|00000210| 09 53 74 72 32 35 35 20 | 70 73 74 72 3b 0d 09 0d |.Str255 |pstr;...|
|00000220| 09 69 66 20 28 68 79 63 | 70 2d 3e 70 61 72 61 6d |.if (hyc|p->param|
|00000230| 43 6f 75 6e 74 20 21 3d | 20 32 29 20 7b 0d 09 09 |Count !=| 2) {...|
|00000240| 73 65 74 68 61 6e 64 28 | 26 68 79 63 70 2d 3e 72 |sethand(|&hycp->r|
|00000250| 65 74 75 72 6e 56 61 6c | 75 65 2c 20 22 54 4e 43 |eturnVal|ue, "TNC|
|00000260| 6f 6e 6e 65 63 74 20 54 | 4e 49 44 2c 68 6f 73 74 |onnect T|NID,host|
|00000270| 6e 61 6d 65 3a 20 6e 65 | 65 64 20 32 20 61 72 67 |name: ne|ed 2 arg|
|00000280| 75 6d 65 6e 74 73 22 29 | 3b 0d 09 09 72 65 74 75 |uments")|;...retu|
|00000290| 72 6e 3b 0d 09 7d 0d 09 | 0d 09 48 4c 6f 63 6b 28 |rn;..}..|..HLock(|
|000002a0| 28 48 61 6e 64 6c 65 29 | 20 68 79 63 70 2d 3e 70 |(Handle)| hycp->p|
|000002b0| 61 72 61 6d 73 5b 30 5d | 29 3b 0d 09 48 4c 6f 63 |arams[0]|);..HLoc|
|000002c0| 6b 28 28 48 61 6e 64 6c | 65 29 20 68 79 63 70 2d |k((Handl|e) hycp-|
|000002d0| 3e 70 61 72 61 6d 73 5b | 31 5d 29 3b 0d 09 0d 09 |>params[|1]);....|
|000002e0| 5a 65 72 6f 54 6f 50 61 | 73 28 68 79 63 70 2c 20 |ZeroToPa|s(hycp, |
|000002f0| 2a 68 79 63 70 2d 3e 70 | 61 72 61 6d 73 5b 30 5d |*hycp->p|arams[0]|
|00000300| 2c 20 28 53 74 72 69 6e | 67 50 74 72 29 20 26 70 |, (Strin|gPtr) &p|
|00000310| 73 74 72 5b 30 5d 29 3b | 0d 09 64 72 76 70 62 2e |str[0]);|..drvpb.|
|00000320| 69 6f 43 52 65 66 4e 75 | 6d 20 3d 20 28 73 68 6f |ioCRefNu|m = (sho|
|00000330| 72 74 29 20 53 74 72 54 | 6f 4e 75 6d 28 68 79 63 |rt) StrT|oNum(hyc|
|00000340| 70 2c 20 28 53 74 72 33 | 31 20 2a 29 20 26 70 73 |p, (Str3|1 *) &ps|
|00000350| 74 72 5b 30 5d 29 3b 0d | 09 64 72 76 70 62 2e 63 |tr[0]);.|.drvpb.c|
|00000360| 73 43 6f 64 65 20 3d 20 | 48 54 4e 5f 43 4f 4e 4e |sCode = |HTN_CONN|
|00000370| 45 43 54 3b 0d 09 61 72 | 67 73 20 3d 20 28 6c 6f |ECT;..ar|gs = (lo|
|00000380| 6e 67 20 2a 29 20 26 64 | 72 76 70 62 2e 63 73 50 |ng *) &d|rvpb.csP|
|00000390| 61 72 61 6d 5b 30 5d 3b | 0d 09 2a 61 72 67 73 20 |aram[0];|..*args |
|000003a0| 3d 20 2a 20 28 6c 6f 6e | 67 20 2a 29 20 68 79 63 |= * (lon|g *) hyc|
|000003b0| 70 2d 3e 70 61 72 61 6d | 73 5b 31 5d 3b 0d 09 09 |p->param|s[1];...|
|000003c0| 2f 2a 20 70 61 73 73 20 | 74 68 65 20 68 6f 73 74 |/* pass |the host|
|000003d0| 20 69 64 20 73 74 72 69 | 6e 67 20 74 6f 20 74 68 | id stri|ng to th|
|000003e0| 65 20 64 72 76 72 20 74 | 6f 20 70 61 73 73 20 6f |e drvr t|o pass o|
|000003f0| 6e 20 74 6f 20 54 4e 33 | 32 37 30 20 2a 2f 0d 09 |n to TN3|270 */..|
|00000400| 50 42 43 6f 6e 74 72 6f | 6c 28 28 50 61 72 6d 42 |PBContro|l((ParmB|
|00000410| 6c 6b 50 74 72 29 20 26 | 64 72 76 70 62 2c 20 28 |lkPtr) &|drvpb, (|
|00000420| 42 6f 6f 6c 65 61 6e 29 | 20 30 29 3b 0d 0d 09 69 |Boolean)| 0);...i|
|00000430| 66 20 28 64 72 76 70 62 | 2e 69 6f 52 65 73 75 6c |f (drvpb|.ioResul|
|00000440| 74 29 20 7b 0d 09 09 2f | 2a 20 63 6f 6e 6e 65 63 |t) {.../|* connec|
|00000450| 74 20 63 61 6c 6c 20 66 | 61 69 6c 65 64 20 2a 2f |t call f|ailed */|
|00000460| 0d 09 09 73 77 69 74 63 | 68 20 28 64 72 76 70 62 |...switc|h (drvpb|
|00000470| 2e 69 6f 52 65 73 75 6c | 74 29 20 7b 0d 09 09 09 |.ioResul|t) {....|
|00000480| 63 61 73 65 20 48 54 4e | 52 5f 4e 4f 54 4e 3a 20 |case HTN|R_NOTN: |
|00000490| 7b 0d 09 09 09 09 73 65 | 74 68 61 6e 64 28 26 68 |{.....se|thand(&h|
|000004a0| 79 63 70 2d 3e 72 65 74 | 75 72 6e 56 61 6c 75 65 |ycp->ret|urnValue|
|000004b0| 2c 20 22 54 4e 20 69 73 | 20 6e 6f 74 20 72 75 6e |, "TN is| not run|
|000004c0| 6e 69 6e 67 22 29 3b 0d | 09 09 09 09 62 72 65 61 |ning");.|....brea|
|000004d0| 6b 3b 0d 09 09 09 7d 0d | 09 09 09 63 61 73 65 20 |k;....}.|...case |
|000004e0| 48 54 4e 52 5f 41 43 54 | 49 56 45 3a 20 7b 0d 09 |HTNR_ACT|IVE: {..|
|000004f0| 09 09 09 73 65 74 68 61 | 6e 64 28 26 68 79 63 70 |...setha|nd(&hycp|
|00000500| 2d 3e 72 65 74 75 72 6e | 56 61 6c 75 65 2c 20 22 |->return|Value, "|
|00000510| 54 4e 20 6e 6f 74 20 6f | 70 65 6e 65 64 22 29 3b |TN not o|pened");|
|00000520| 0d 09 09 09 09 62 72 65 | 61 6b 3b 0d 09 09 09 7d |.....bre|ak;....}|
|00000530| 0d 09 09 09 63 61 73 65 | 20 48 54 4e 52 5f 4f 50 |....case| HTNR_OP|
|00000540| 45 4e 3a 20 7b 0d 09 09 | 09 09 73 65 74 68 61 6e |EN: {...|..sethan|
|00000550| 64 28 26 68 79 63 70 2d | 3e 72 65 74 75 72 6e 56 |d(&hycp-|>returnV|
|00000560| 61 6c 75 65 2c 20 22 54 | 4e 20 61 6c 72 65 61 64 |alue, "T|N alread|
|00000570| 79 20 68 61 73 20 61 20 | 63 6f 6e 6e 65 63 74 69 |y has a |connecti|
|00000580| 6f 6e 22 29 3b 0d 09 09 | 09 09 62 72 65 61 6b 3b |on");...|..break;|
|00000590| 0d 09 09 09 7d 0d 09 09 | 09 63 61 73 65 20 48 54 |....}...|.case HT|
|000005a0| 4e 52 5f 4e 41 4d 45 3a | 20 7b 0d 09 09 09 09 73 |NR_NAME:| {.....s|
|000005b0| 65 74 68 61 6e 64 28 26 | 68 79 63 70 2d 3e 72 65 |ethand(&|hycp->re|
|000005c0| 74 75 72 6e 56 61 6c 75 | 65 2c 20 22 4e 61 6d 65 |turnValu|e, "Name|
|000005d0| 20 6e 6f 74 20 69 6e 20 | 68 6f 73 74 20 74 61 62 | not in |host tab|
|000005e0| 6c 65 22 29 3b 0d 09 09 | 09 09 62 72 65 61 6b 3b |le");...|..break;|
|000005f0| 0d 09 09 09 7d 0d 09 09 | 09 63 61 73 65 20 48 54 |....}...|.case HT|
|00000600| 4e 52 5f 41 44 44 52 3a | 20 7b 0d 09 09 09 09 73 |NR_ADDR:| {.....s|
|00000610| 65 74 68 61 6e 64 28 26 | 68 79 63 70 2d 3e 72 65 |ethand(&|hycp->re|
|00000620| 74 75 72 6e 56 61 6c 75 | 65 2c 20 22 49 6e 76 61 |turnValu|e, "Inva|
|00000630| 6c 69 64 20 49 6e 74 65 | 72 6e 65 74 20 41 64 64 |lid Inte|rnet Add|
|00000640| 72 65 73 73 22 29 3b 0d | 09 09 09 09 62 72 65 61 |ress");.|....brea|
|00000650| 6b 3b 0d 09 09 09 7d 0d | 09 09 09 63 61 73 65 20 |k;....}.|...case |
|00000660| 62 61 64 55 6e 69 74 45 | 72 72 3a 20 7b 0d 09 09 |badUnitE|rr: {...|
|00000670| 09 09 73 65 74 68 61 6e | 64 28 26 68 79 63 70 2d |..sethan|d(&hycp-|
|00000680| 3e 72 65 74 75 72 6e 56 | 61 6c 75 65 2c 20 22 54 |>returnV|alue, "T|
|00000690| 4e 49 44 20 69 73 20 69 | 6e 63 6f 72 72 65 63 74 |NID is i|ncorrect|
|000006a0| 22 29 3b 0d 09 09 09 09 | 62 72 65 61 6b 3b 0d 09 |");.....|break;..|
|000006b0| 09 09 7d 0d 09 09 09 64 | 65 66 61 75 6c 74 3a 20 |..}....d|efault: |
|000006c0| 7b 0d 09 09 09 09 73 65 | 74 68 61 6e 64 28 26 68 |{.....se|thand(&h|
|000006d0| 79 63 70 2d 3e 72 65 74 | 75 72 6e 56 61 6c 75 65 |ycp->ret|urnValue|
|000006e0| 2c 20 22 55 6e 6b 6e 6f | 77 6e 20 65 72 72 6f 72 |, "Unkno|wn error|
|000006f0| 22 29 3b 0d 09 09 09 09 | 62 72 65 61 6b 3b 0d 09 |");.....|break;..|
|00000700| 09 09 7d 0d 09 09 7d 0d | 09 7d 0d 09 48 55 6e 6c |..}...}.|.}..HUnl|
|00000710| 6f 63 6b 28 28 48 61 6e | 64 6c 65 29 20 68 79 63 |ock((Han|dle) hyc|
|00000720| 70 2d 3e 70 61 72 61 6d | 73 5b 30 5d 29 3b 0d 09 |p->param|s[0]);..|
|00000730| 48 55 6e 6c 6f 63 6b 28 | 28 48 61 6e 64 6c 65 29 |HUnlock(|(Handle)|
|00000740| 20 68 79 63 70 2d 3e 70 | 61 72 61 6d 73 5b 31 5d | hycp->p|arams[1]|
|00000750| 29 3b 0d 09 72 65 74 75 | 72 6e 3b 0d 7d 0d 0d 0d |);..retu|rn;.}...|
|00000760| 73 65 74 68 61 6e 64 28 | 74 68 61 6e 64 2c 20 73 |sethand(|thand, s|
|00000770| 74 72 29 0d 48 61 6e 64 | 6c 65 20 2a 20 74 68 61 |tr).Hand|le * tha|
|00000780| 6e 64 3b 0d 63 68 61 72 | 20 2a 20 73 74 72 3b 0d |nd;.char| * str;.|
|00000790| 7b 0d 09 69 66 20 28 2a | 74 68 61 6e 64 20 3d 3d |{..if (*|thand ==|
|000007a0| 20 4e 55 4c 4c 29 20 7b | 0d 09 09 2a 74 68 61 6e | NULL) {|...*than|
|000007b0| 64 20 3d 20 4e 65 77 48 | 61 6e 64 6c 65 28 28 53 |d = NewH|andle((S|
|000007c0| 69 7a 65 29 20 30 29 3b | 0d 09 7d 0d 09 53 65 74 |ize) 0);|..}..Set|
|000007d0| 48 61 6e 64 6c 65 53 69 | 7a 65 28 2a 74 68 61 6e |HandleSi|ze(*than|
|000007e0| 64 2c 20 28 6c 6f 6e 67 | 29 20 28 73 74 72 6c 65 |d, (long|) (strle|
|000007f0| 6e 28 73 74 72 29 20 2b | 20 31 29 29 3b 0d 09 73 |n(str) +| 1));..s|
|00000800| 74 72 63 70 79 28 2a 2a | 74 68 61 6e 64 2c 20 73 |trcpy(**|thand, s|
|00000810| 74 72 29 3b 0d 7d 0d 0d | 0d 0d 0d 23 69 6e 63 6c |tr);.}..|...#incl|
|00000820| 75 64 65 20 3c 58 43 6d | 64 47 6c 75 65 2e 69 6e |ude <XCm|dGlue.in|
|00000830| 63 2e 63 3e 00 00 00 00 | 00 00 00 00 00 00 00 00 |c.c>....|........|
|00000840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000880| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000890| 00 00 07 3c 00 00 00 00 | 00 00 00 00 00 00 00 00 |...<....|........|
|000008a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008b0| 0b 54 4e 43 6f 6e 6e 65 | 63 74 2e 63 02 00 00 00 |.TNConne|ct.c....|
|000008c0| 50 61 72 74 53 49 54 78 | 00 00 00 00 00 00 00 00 |PartSITx|........|
|000008d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 a9 8d 3a 89 00 00 | 00 00 00 00 01 7e 00 00 |....:...|.....~..|
|00000900| 00 00 00 00 00 00 00 00 | 00 00 02 96 25 00 00 00 |........|....%...|
|00000910| 07 3c 0a 41 70 70 6c 65 | 53 68 61 72 65 00 00 00 |.<.Apple|Share...|
|00000920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000930| 00 00 00 00 02 97 25 00 | 00 00 07 3c 0e 43 6c 69 |......%.|...<.Cli|
|00000940| 70 62 6f 61 72 64 20 46 | 69 6c 65 00 00 00 00 00 |pboard F|ile.....|
|00000950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 03 1f |........|........|
|00000960| 25 00 00 00 07 3c 06 63 | 6f 72 76 75 73 00 00 00 |%....<.c|orvus...|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000980| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 fa 00 00 |...H..Mo|naco....|
|00000990| 00 00 04 1c 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009a0| 00 00 00 00 00 00 00 06 | 00 04 00 29 00 02 01 85 |........|...)....|
|000009b0| 02 02 00 29 00 02 01 85 | 02 02 a1 18 95 77 00 00 |...)....|.....w..|
|000009c0| 03 33 00 00 03 39 00 00 | 01 90 01 00 00 00 01 00 |.3...9..|........|
|000009d0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 33 4e 14 |...L...L|...2.3N.|
|000009e0| 05 84 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|000009f0| 00 0a 03 ed ff ff 00 00 | 00 00 00 34 87 04 00 00 |........|...4....|
+--------+-------------------------+-------------------------+--------+--------+